home *** CD-ROM | disk | FTP | other *** search
/ CSi Master: Ableton Live 5 / CSi Master: Ableton Live 5.iso / pc / rsrc / locrsrc / mtprsrc.dir / Internal_64_PTL.ls < prev    next >
Encoding:
Text File  |  2005-10-31  |  2.9 KB  |  101 lines
  1. on enterFrame
  2.   global STclickLine, STnewLine, SToldLine, SSTclickLine, SSTnewLine, SSToldLine
  3.   repeat while rollover(11)
  4.     setFingerCursor()
  5.     if the mouseLine >= 1 then
  6.       STnewLine = the mouseLine
  7.       if STnewLine >= 1 then
  8.         if (line STnewLine of field "Subtopics" = EMPTY) or (STnewLine = SToldLine) then
  9.           nothing()
  10.         else
  11.           if STnewLine <> STclickLine then
  12.             set the textStyle of line STnewLine of field "subtopics" to "bold, condense"
  13.             if SToldLine <> STclickLine then
  14.               set the textStyle of line SToldLine of field "subtopics" to "plain"
  15.             end if
  16.           else
  17.             set the textStyle of line SToldLine of field "subtopics" to "plain"
  18.           end if
  19.           SToldLine = STnewLine
  20.         end if
  21.       else
  22.         if SToldLine <> STclickLine then
  23.           set the textStyle of line SToldLine of field "subtopics" to "plain"
  24.         end if
  25.       end if
  26.     end if
  27.     pass()
  28.   end repeat
  29.   if SToldLine <> STclickLine then
  30.     set the textStyle of line SToldLine of field "subtopics" to "plain"
  31.     SToldLine = STclickLine
  32.   end if
  33.   repeat while rollover(12)
  34.     if field("Sub-Subtopics") <> " " then
  35.       setFingerCursor()
  36.     else
  37.       setArrowCursor()
  38.     end if
  39.     if the mouseLine >= 1 then
  40.       SSTnewLine = the mouseLine
  41.       if SSTnewLine >= 1 then
  42.         if (line SSTnewLine of field "Sub-Subtopics" = EMPTY) or (SSTnewLine = SSToldLine) then
  43.           nothing()
  44.         else
  45.           if SSTnewLine <> SSTclickLine then
  46.             set the textStyle of line SSTnewLine of field "Sub-subtopics" to "bold, condense"
  47.             if SSToldLine <> SSTclickLine then
  48.               set the textStyle of line SSToldLine of field "Sub-subtopics" to "plain"
  49.             end if
  50.           else
  51.             set the textStyle of line SSToldLine of field "Sub-subtopics" to "plain"
  52.           end if
  53.           SSToldLine = SSTnewLine
  54.         end if
  55.       else
  56.         if SSToldLine <> SSTclickLine then
  57.           set the textStyle of line SSToldLine of field "Sub-subtopics" to "plain"
  58.         end if
  59.       end if
  60.     end if
  61.     pass()
  62.   end repeat
  63.   if SSToldLine <> SSTclickLine then
  64.     set the textStyle of line SSToldLine of field "Sub-subtopics" to "plain"
  65.     SSToldLine = SSTclickLine
  66.   end if
  67.   repeat while rollover(10)
  68.     setFingerCursor()
  69.     pass()
  70.   end repeat
  71.   repeat while rollover(13)
  72.     if the mouseV < (the top of sprite 13 + 8) then
  73.       setFingerCursor()
  74.     else
  75.       if the mouseV > (the bottom of sprite 13 - 22) then
  76.         setFingerCursor()
  77.       else
  78.         setArrowCursor()
  79.       end if
  80.     end if
  81.     pass()
  82.   end repeat
  83.   repeat while rollover(7) and (sprite(7).visible = 1)
  84.     setFingerCursor()
  85.     pass()
  86.   end repeat
  87.   repeat while rollover(10)
  88.     setFingerCursor()
  89.     pass()
  90.   end repeat
  91.   repeat while rollover(47)
  92.     setFingerCursor()
  93.     pass()
  94.   end repeat
  95.   setArrowCursor()
  96. end
  97.  
  98. on exitFrame
  99.   go(the frame)
  100. end
  101.